home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt105a].d64 / notizendruck (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  90 lines
  1. 10 REM * NOTIZENDRUCK * * F.W. (C)03.1989 *
  2. 20 DIMNO(128,2)
  3. 30 PRINTCHR$(147);CHR$(14)
  4. 40 PRINT"            [206]OTIZEN DRUCKEN!":PRINT
  5. 50 PRINT"     [194]ITTE [206]OTES-[196]ISKETTE EINLEGEN":PRINT
  6. 60 PRINT"        UND EINE [212]ASTE DRUECKEN!":PRINT:PRINT
  7. 70 GETA$:IFA$=""THEN70
  8. 80 OPEN5,8,15,"I"
  9. 90 OPEN3,8,3,"#"
  10. 100 T=18:S=1
  11. 110 SC$="[206]OTES":SG$=""
  12. 120 FORI=1TOLEN(SC$)
  13. 130 A=ASC(MID$(SC$,I,1))
  14. 140 GOSUB840
  15. 150 SG$=SG$+CHR$(A)
  16. 160 NEXTI
  17. 170 PRINT#5,"U1:"3;0;T;S
  18. 180 PRINT#5,"B-P:"3;0
  19. 190 GOSUB830:NT=A
  20. 200 GOSUB830:NS=A
  21. 210 BP=2:GE=0
  22. 220 FORI=1TO8
  23. 230 PRINT#5,"B-P:"3;BP
  24. 240 GOSUB830:FT=A
  25. 250 GOSUB830:TT=A
  26. 260 GOSUB830:SS=A
  27. 270 FI$=""
  28. 280 IFFT=0THEN350
  29. 290 FORJ=1TO16:GOSUB830
  30. 300 IFA=160THENJ=16:GOTO320
  31. 310 FI$=FI$+A$
  32. 320 NEXTJ
  33. 330 PRINTFI$
  34. 340 IFFI$=SG$THENPRINT"[206]OTES GEFUNDEN!",TT,SS:I=10:GE=1:GOTO360
  35. 350 BP=BP+32
  36. 360 NEXTI
  37. 370 IFGE=0THENIFNT>0THENT=NT:S=NS:GOTO170
  38. 380 IFGE=0THENPRINT"[204]EIDER KEINE [206]OTES GEFUNDEN!":CLOSE5:END
  39. 390 IFTT<0ORTT>35THENPRINT"[198]EHLER!":END
  40. 400 PRINT#5,"U1:"3;0;TT;SS
  41. 410 ANZ=0:BP=2
  42. 420 PRINT#5,"B-P:"3;BP
  43. 430 GOSUB830:NT=A:PRINTNT
  44. 440 GOSUB830:NS=A:PRINTNS
  45. 450 IFNT<1ORNT>35ORNS>21THEN490
  46. 460 NO(AN,1)=NT:NO(AN,2)=NS:PRINTNT,NS
  47. 470 AN=AN+1:BP=BP+2:
  48. 480 IFAN<127THEN420
  49. 490 IFAN=0THENPRINT"[203]EINE [211]EITEN!":CLOSE5:END
  50. 500 FORI=0TOAN-1:PRINT"------------------------------"
  51. 510 PRINT"[211]EITE: ";I+1
  52. 520 X=1
  53. 530 T=NO(I,1):S=NO(I,2)
  54. 540 IFT<1ORT>35THENPRINT"[198]EHLER!":CLOSE1:CLOSE5:END
  55. 550 PRINT#5,"U1:"3;0;T;S
  56. 560 PRINT#5,"B-P:"3;2
  57. 570 GOSUB830
  58. 580 IFA=0THEN630:GOSUB870
  59. 590 IFA>31THENPRINTCHR$(A);
  60. 600 IFA=13THENX=1:PRINTCHR$(A);
  61. 610 IFX>30THENIFA=32THEN:X=1:PRINTCHR$(13);
  62. 620 X=X+1:GOTO570
  63. 630 PRINT:INPUT"[206]AECHSTE [211]EITE = [210]ETURN   [197]NDE = [209]";N$:IFN$="Q"THENI=AN
  64. 640 NEXTI
  65. 650 INPUT"[196]RUCKEN J/N";N$
  66. 660 IFN$<>"J"THEN820
  67. 670 OPEN1,4,7
  68. 680 FORI=0TOAN-1
  69. 690 PRINT#1,"-------------[211]EITE ";I+1;"-------------";CHR$(10)
  70. 700 X=1
  71. 710 T=NO(I,1):S=NO(I,2)
  72. 720 IFT<1ORT>35THENPRINT"[198]EHLER!":CLOSE1:CLOSE5:STOP
  73. 730 PRINT#5,"U1:"3;0;T;S
  74. 740 PRINT#5,"B-P:"3;2
  75. 750 GOSUB830
  76. 760 IFA=0THEN810:GOSUB870
  77. 770 IFA>31THENPRINT#1,CHR$(A);
  78. 780 IFA=13THENX=1:PRINT#1,CHR$(A);CHR$(10)
  79. 790 IFX>50THENIFA=32THENX=1:PRINT#1,CHR$(A);CHR$(10)
  80. 800 X=X+1:GOTO750
  81. 810 NEXTI:PRINT#1:CLOSE1
  82. 820 CLOSE3:CLOSE5:END
  83. 830 GET#3,A$:A=ASC(A$+CHR$(0)):RETURN
  84. 840 IFA>64ANDA<91THENA=A+32:RETURN
  85. 850 IFA>192ANDA<219THENA=A-128:RETURN
  86. 860 RETURN
  87. 870 IFA>64ANDA<91THENA=A+128:RETURN
  88. 880 IFA>96ANDA<123THENA=A-32:RETURN
  89. 890 RETURN
  90.